home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / puppy.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-02-21  |  2.3 KB  |  94 lines
  1. 1030  DEFINT A-Z
  2. 1040  SCREEN 1,0:CLS:KEY OFF
  3. 1050  '
  4. 1060  COLOR 8,1
  5. 1070  '
  6. 1080  '
  7. 1090  X=140:Y=110
  8. 1100  LINE (X-60,Y)-(X+90,Y+1),1,B
  9. 1110  GOSUB 1160
  10. 1120  GOTO 1760
  11. 1130  END
  12. 1140  '
  13. 1150  '
  14. 1160  CIRCLE (X+20,Y-20),20,1,4.8,1,1
  15. 1170  CIRCLE (X+16,Y-20),15,3,0.8,4.1,0.8
  16. 1180  PSET (X+21,Y),1:DRAW "L33H2U3E1BD5L2H2U4E2R1E1R5F1R7E1R4"
  17. 1190  '
  18. 1200  PSET (X+2,Y-16),3:DRAW "E2R3E2R4F2R3E4U2H1L2H2U2H2"
  19. 1210  PAINT (X+18,Y-22),3
  20. 1220  '
  21. 1230  CIRCLE (X-10,Y-82),22,3,6.1,3.3,1.2
  22. 1240  PSET (X-28,Y-82),3:DRAW "G11L1G2L2U1L2U4E1U3E3R1E4R1E3R1E6"
  23. 1250  DRAW "BR34BD13F9R1F2R2U1R2U4H1U3H3L1H4L1H3L1H6"
  24. 1260  PAINT (X-32,Y-82),3:PAINT (X+10,Y-82),3
  25. 1270  '
  26. 1280  CIRCLE (X-17,Y-82),9,3,,3.3,1.5
  27. 1290  CIRCLE (X-17,Y-82),10,3,,3.3,1.5
  28. 1300  CIRCLE (X-17,Y-82),11,3,,3.3,1.5
  29. 1310  CIRCLE (X-17,Y-82),8,1,,3.3,1.5
  30. 1320  CIRCLE (X-17,Y-82),3,2,,3.3,1.5
  31. 1330  '
  32. 1340  CIRCLE (X-3,Y-82),8,1,5.9,3.1,1.5
  33. 1350  CIRCLE (X-3,Y-82),3,2,5.8,3.1,1.5
  34. 1360  '
  35. 1370  CIRCLE (X-10,Y-70),22,1,5.4,4,0.5
  36. 1380  CIRCLE (X-20,Y-68),9,1,4,,1
  37. 1390  CIRCLE (X-1,Y-68),9,1,3.14,5.3,1
  38. 1400  CIRCLE (X-10,Y-75),6,2,,,0.7
  39. 1410  PAINT (X-10,Y-75),2
  40. 1420  CIRCLE (X-10,Y-61),4,2,3,,0.7
  41. 1430  CIRCLE (X-10,Y-59),6,1,3,,0.7
  42. 1440  '
  43. 1450  FOR K = 1 TO 35 STEP 30
  44. 1460  PSET (X-28+K,Y-72),3:PSET (X-30+K,Y-70),3
  45. 1470  PSET (X-26+K,Y-68),3:PSET (X-22+K,Y-69),3
  46. 1480  PSET (X-25+K,Y-73),3:PSET (X-24+K,Y-71),3
  47. 1490  NEXT K
  48. 1500  '
  49. 1510  PSET (X,Y-58),3
  50. 1520  DRAW "D3F2D2F3R3F1R5F1R4F2R2F3R1F3G1L2H1L2H2L4G1L6H2U2H1U3"
  51. 1530  PSET (X-7,Y-40),3:DRAW "R3E2R2E1U3H1U2H1L2G1L2G3L1D3F4"
  52. 1540  PAINT (X+15,Y-43),3:PAINT(X-3,Y-47),3
  53. 1550  '
  54. 1560  PSET (X-22,Y-58),3:DRAW "D7G2D1G3D2G1D4G1D12G1D3G1D2G1D5"
  55. 1570  DRAW "BD6BL4D2F3NU4R4NU4R4NU4R2E2"
  56. 1580  CIRCLE (X-15,Y-8),20,3,0.3,3,3.6
  57. 1590  CIRCLE (X-28,Y-6),8,3,5.9,3.3,0.6
  58. 1600  CIRCLE (X-26,Y-36),11,3,4.4,1.3,1.6:PAINT (X-24,Y-34),3
  59. 1610  K = 1:GOSUB 1650
  60. 1620  RETURN
  61. 1630  '
  62. 1640  '
  63. 1650  CIRCLE (X+36,Y-44),22,K,4.96,1,1
  64. 1660  CIRCLE (X+37,Y-41),24,K,4.9,1,1
  65. 1670  RETURN
  66. 1680  CIRCLE (X+54,Y-36),24,K,4.1,0.4,1
  67. 1690  CIRCLE (X+55,Y-39),22,K,4.02,,1
  68. 1700  RETURN
  69. 1710  CIRCLE (X+64,Y-33),26,K,3.7,5.9,0.9
  70. 1720  CIRCLE (X+62,Y-30),28,K,3.8,5.9,0.9
  71. 1730  RETURN
  72. 1740  '
  73. 1750  '
  74. 1760  LOCATE 20,4:PRINT"PRESS ANY KEY TO WAG PUPPY'S TAIL"
  75. 1770  A$=INKEY$:IF A$=""THEN 1770
  76. 1780  '
  77. 1790  FOR J = 1 TO 6
  78. 1800  GOSUB 1920
  79. 1810  GOSUB 1680
  80. 1820  GOSUB 1920
  81. 1830  GOSUB 1710
  82. 1840  GOSUB 1920
  83. 1850  GOSUB 1680
  84. 1860  GOSUB 1920
  85. 1870  GOSUB 1650
  86. 1880  NEXT J
  87. 1890  GOTO 1770
  88. 1900  '
  89. 1910  '
  90. 1920  FOR DELY = 1 TO 5:NEXT DELY
  91. 1930  LINE (X+41,Y-65)-(X+90,Y-4),0,BF
  92. 1940  RETURN
  93. 2770  A$=INKEY$:IF A$=""THEN1770
  94.